home *** CD-ROM | disk | FTP | other *** search
Unknown | 2019-04-13 | 3.0 KB |
open in:
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence | Program | Detection | Match Type | Support
|
---|
66%
| dexvert
| GW-BASIC (document/gwBasic)
| ext
| Supported |
66%
| dexvert
| GFA-BASIC Atari (other/gfaBASICAtari)
| ext
| Supported |
1%
| dexvert
| Amiga BASIC Protected File (other/amigaBASICProtectedFile)
| ext
| Unsupported |
1%
| dexvert
| BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source)
| ext
| Unsupported |
1%
| dexvert
| Visual Basic Tokenized Source (other/visualBasicTokenizedSource)
| ext
| Unsupported |
1%
| dexvert
| ZBASIC (other/zbasic)
| ext
| Unsupported |
100%
| file
| data
| default
| |
100%
| gt2
| Kopftext: '10 GOTO2020
| default (weak)
| |
100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 47 4f 54 4f 32 | 30 32 30 0a 32 30 20 50 |10 GOTO2|020.20 P|
|00000010| 4f 4b 45 35 35 2c 2e 3a | 50 4f 4b 45 35 36 2c 31 |OKE55,.:|POKE56,1|
|00000020| 36 30 3a 43 4c 52 0a 33 | 30 20 51 24 3d 43 48 52 |60:CLR.3|0 Q$=CHR|
|00000030| 24 28 33 34 29 3a 4d 24 | 3d 43 48 52 24 28 31 33 |$(34):M$|=CHR$(13|
|00000040| 29 3a 47 4f 53 55 42 32 | 30 30 0a 34 30 20 50 52 |):GOSUB2|00.40 PR|
|00000050| 49 4e 54 22 93 8e 11 45 | 4e 54 45 52 20 4e 55 4d |INT"...E|NTER NUM|
|00000060| 42 45 52 20 4f 46 20 48 | 45 58 41 44 45 43 49 4d |BER OF H|EXADECIM|
|00000070| 41 4c 20 50 4c 41 43 45 | 53 2e 22 3a 50 52 49 4e |AL PLACE|S.":PRIN|
|00000080| 54 22 11 28 46 52 4f 4d | 20 32 20 54 4f 20 32 35 |T".(FROM| 2 TO 25|
|00000090| 32 2e 29 22 0a 35 30 20 | 50 52 49 4e 54 22 11 1d |2.)".50 |PRINT"..|
|000000a0| 1d 39 91 22 3a 49 4e 50 | 55 54 52 3a 49 46 52 3d |.9.":INP|UTR:IFR=|
|000000b0| 2e 54 48 45 4e 45 4e 44 | 0a 36 30 20 49 46 52 3c |.THENEND|.60 IFR<|
|000000c0| 32 4f 52 52 3e 32 35 32 | 54 48 45 4e 34 30 0a 37 |2ORR>252|THEN40.7|
|000000d0| 30 20 50 52 49 4e 54 22 | 11 43 41 4c 43 55 4c 41 |0 PRINT"|.CALCULA|
|000000e0| 54 49 4e 47 2e 2e 2e 22 | 0a 38 30 20 4e 3d 52 2b |TING..."|.80 N=R+|
|000000f0| 34 3a 50 4f 4b 45 31 35 | 30 2c 4e 2d 31 0a 39 30 |4:POKE15|0,N-1.90|
|00000100| 20 53 59 53 34 39 31 35 | 32 3a 52 45 4d 20 43 41 | SYS4915|2:REM CA|
|00000110| 4c 43 55 4c 41 54 45 20 | 50 49 20 49 4e 20 48 45 |LCULATE |PI IN HE|
|00000120| 58 0a 31 30 30 20 53 59 | 53 34 39 37 33 38 3a 52 |X.100 SY|S49738:R|
|00000130| 45 4d 20 43 48 45 43 4b | 20 46 4f 52 20 53 50 45 |EM CHECK| FOR SPE|
|00000140| 43 49 41 4c 20 43 41 53 | 45 0a 31 31 30 20 49 46 |CIAL CAS|E.110 IF|
|00000150| 50 45 45 4b 28 32 29 54 | 48 45 4e 52 3d 52 2b 31 |PEEK(2)T|HENR=R+1|
|00000160| 3a 47 4f 54 4f 38 30 0a | 31 32 30 20 53 59 53 34 |:GOTO80.|120 SYS4|
|00000170| 39 38 32 35 3a 52 45 4d | 20 53 45 54 20 55 50 20 |9825:REM| SET UP |
|00000180| 48 45 58 20 52 4f 55 4e | 44 4f 46 46 0a 31 33 30 |HEX ROUN|DOFF.130|
|00000190| 20 53 59 53 34 39 36 39 | 31 3a 52 45 4d 20 52 4f | SYS4969|1:REM RO|
|000001a0| 55 4e 44 4f 46 46 20 48 | 45 58 0a 31 34 30 20 53 |UNDOFF H|EX.140 S|
|000001b0| 59 53 34 39 35 36 35 3a | 52 45 4d 20 44 49 53 50 |YS49565:|REM DISP|
|000001c0| 4c 41 59 20 48 45 58 0a | 31 35 30 20 53 59 53 34 |LAY HEX.|150 SYS4|
|000001d0| 39 38 34 31 3a 52 45 4d | 20 43 41 4c 43 55 4c 41 |9841:REM| CALCULA|
|000001e0| 54 45 20 4e 55 4d 42 45 | 52 20 4f 46 20 44 45 43 |TE NUMBE|R OF DEC|
|000001f0| 49 4d 41 4c 20 50 4c 41 | 43 45 53 20 46 52 4f 4d |IMAL PLA|CES FROM|
|00000200| 20 4c 4f 47 28 31 36 29 | 2f 4c 4f 47 28 31 30 29 | LOG(16)|/LOG(10)|
|00000210| 0a 31 36 30 20 53 59 53 | 34 39 34 31 38 3a 52 45 |.160 SYS|49418:RE|
|00000220| 4d 20 43 4f 4e 56 45 52 | 54 20 48 45 58 20 54 4f |M CONVER|T HEX TO|
|00000230| 20 44 45 43 49 4d 41 4c | 0a 31 37 30 20 53 59 53 | DECIMAL|.170 SYS|
|00000240| 34 39 38 39 30 3a 52 45 | 4d 20 53 45 54 20 55 50 |49890:RE|M SET UP|
|00000250| 20 44 45 43 49 4d 41 4c | 20 52 4f 55 4e 44 4f 46 | DECIMAL| ROUNDOF|
|00000260| 46 0a 31 38 30 20 53 59 | 53 34 39 36 34 34 3a 52 |F.180 SY|S49644:R|
|00000270| 45 4d 20 52 4f 55 4e 44 | 4f 46 46 20 44 45 43 49 |EM ROUND|OFF DECI|
|00000280| 4d 41 4c 0a 31 39 30 20 | 53 59 53 34 39 36 30 32 |MAL.190 |SYS49602|
|00000290| 3a 52 45 4d 20 44 49 53 | 50 4c 41 59 20 44 45 43 |:REM DIS|PLAY DEC|
|000002a0| 49 4d 41 4c 0a 31 39 35 | 20 45 4e 44 0a 32 30 30 |IMAL.195| END.200|
|000002b0| 20 50 52 49 4e 54 22 93 | 8e 11 11 11 11 11 11 11 | PRINT".|........|
|000002c0| 11 20 20 20 20 49 4e 46 | 22 0a 32 31 30 20 50 52 |. INF|".210 PR|
|000002d0| 49 4e 54 22 20 20 20 20 | af af af 22 0a 32 31 35 |INT" |...".215|
|000002e0| 20 50 52 49 4e 54 22 20 | 20 20 20 cd 00 0a 32 32 | PRINT" | ...22|
|000002f0| 30 20 50 52 49 4e 54 22 | ff 20 3d 20 20 cd 20 20 |0 PRINT"|. = . |
|00000300| 20 20 31 36 5e 2d 4b 20 | 28 34 2f 5b 38 4b 2b 31 | 16^-K |(4/[8K+1|
|00000310| 5d 2d 32 2f 5b 38 4b 2b | 34 5d 22 0a 32 32 35 20 |]-2/[8K+|4]".225 |
|00000320| 50 52 49 4e 54 22 20 20 | 20 20 20 ce 20 20 20 20 |PRINT" | . |
|00000330| 20 20 20 20 20 20 2d 31 | 2f 5b 38 4b 2b 35 5d 2d | -1|/[8K+5]-|
|00000340| 31 2f 5b 38 4b 2b 36 5d | 29 00 0a 32 33 30 20 50 |1/[8K+6]|)..230 P|
|00000350| 52 49 4e 54 22 20 20 20 | 20 ce 00 0a 32 33 35 20 |RINT" | ...235 |
|00000360| 50 52 49 4e 54 22 20 20 | 20 20 b7 b7 b7 00 0a 32 |PRINT" | .....2|
|00000370| 34 30 20 50 52 49 4e 54 | 22 20 20 20 20 4b 3d 30 |40 PRINT|" K=0|
|00000380| 00 0a 32 34 35 20 47 4f | 53 55 42 39 39 36 0a 32 |..245 GO|SUB996.2|
|00000390| 35 30 20 50 52 49 4e 54 | 22 93 0e 11 20 20 20 20 |50 PRINT|"... |
|000003a0| d4 48 45 20 46 4f 52 4d | 55 4c 41 20 4f 4e 20 54 |.HE FORM|ULA ON T|
|000003b0| 48 45 20 50 52 45 43 45 | 44 49 4e 47 20 50 41 47 |HE PRECE|DING PAG|
|000003c0| 45 22 0a 32 35 35 20 50 | 52 49 4e 54 22 41 50 50 |E".255 P|RINT"APP|
|000003d0| 45 41 52 45 44 20 49 4e | 20 54 48 45 20 cf 43 54 |EARED IN| THE .CT|
|000003e0| 4f 42 45 52 20 32 38 2c | 20 31 39 39 35 20 49 53 |OBER 28,| 1995 IS|
|000003f0| 53 55 45 22 0a 32 36 30 | 20 50 52 49 4e 54 22 4f |SUE".260| PRINT"O|
|00000400| 46 20 22 3b 51 24 3b 22 | d3 c3 c9 c5 ce c3 c5 20 |F ";Q$;"|....... |
|00000410| ce c5 d7 d3 22 3b 51 24 | 3b 22 2e 20 20 d4 48 45 |....";Q$|;". .HE|
|00000420| 20 4e 45 57 20 4d 45 54 | 48 4f 44 20 4f 46 22 0a | NEW MET|HOD OF".|
|00000430| 32 36 35 20 50 52 49 4e | 54 22 43 41 4c 43 55 4c |265 PRIN|T"CALCUL|
|00000440| 41 54 49 4e 47 20 50 49 | 20 57 41 53 20 43 52 45 |ATING PI| WAS CRE|
|00000450| 44 49 54 45 44 20 54 4f | 20 d0 45 54 45 52 20 c2 |DITED TO| .ETER .|
|00000460| 2e 22 0a 32 37 30 20 50 | 52 49 4e 54 22 c2 4f 52 |.".270 P|RINT".OR|
|00000470| 57 45 49 4e 2c 20 d3 49 | 4d 4f 4e 20 d0 4c 4f 55 |WEIN, .I|MON .LOU|
|00000480| 46 46 45 2c 20 41 4e 44 | 20 54 48 45 49 52 22 0a |FFE, AND| THEIR".|
|00000490| 32 37 35 20 50 52 49 4e | 54 22 43 4f 57 4f 52 4b |275 PRIN|T"COWORK|
|000004a0| 45 52 53 20 41 54 20 d3 | 49 4d 4f 4e 20 c6 52 41 |ERS AT .|IMON .RA|
|000004b0| 53 45 52 20 d5 4e 49 56 | 45 52 53 49 54 59 20 49 |SER .NIV|ERSITY I|
|000004c0| 4e 22 0a 32 38 30 20 50 | 52 49 4e 54 22 c2 55 52 |N".280 P|RINT".UR|
|000004d0| 4e 41 42 59 2c 20 c2 52 | 49 54 49 53 48 20 c3 4f |NABY, .R|ITISH .O|
|000004e0| 4c 55 4d 42 49 41 2e 20 | 20 d4 48 45 20 46 49 4e |LUMBIA. | .HE FIN|
|000004f0| 44 49 4e 47 22 0a 32 38 | 35 20 50 52 49 4e 54 22 |DING".28|5 PRINT"|
|00000500| 57 41 53 20 41 4e 4e 4f | 55 4e 43 45 44 20 49 4e |WAS ANNO|UNCED IN|
|00000510| 20 41 4e 20 c9 4e 54 45 | 52 4e 45 54 20 50 4f 53 | AN .NTE|RNET POS|
|00000520| 54 49 4e 47 20 49 4e 22 | 0a 32 39 30 20 50 52 49 |TING IN"|.290 PRI|
|00000530| 4e 54 22 09 00 52 4c 59 | 20 cf 43 54 4f 42 45 52 |NT"..RLY| .CTOBER|
|00000540| 2e 20 20 c6 4f 52 20 4d | 4f 52 45 20 49 4e 46 4f |. .OR M|ORE INFO|
|00000550| 52 4d 41 54 49 4f 4e 2c | 22 0a 32 39 35 20 50 52 |RMATION,|".295 PR|
|00000560| 49 4e 54 22 43 48 45 43 | 4b 20 54 48 45 20 d7 4f |INT"CHEC|K THE .O|
|00000570| 52 4c 44 20 d7 49 44 45 | 20 d7 45 42 20 53 49 54 |RLD .IDE| .EB SIT|
|00000580| 45 20 41 54 20 54 48 49 | 53 22 0a 33 30 30 20 50 |E AT THI|S".300 P|
|00000590| 52 49 4e 54 22 41 44 44 | 52 45 53 53 3a 22 0a 33 |RINT"ADD|RESS:".3|
|000005a0| 30 35 20 50 52 49 4e 54 | 22 11 48 54 54 50 3a 2f |05 PRINT|".HTTP:/|
|000005b0| 2f 57 57 57 2e 43 45 43 | 4d 2e 53 46 55 2e 43 41 |/WWW.CEC|M.SFU.CA|
|000005c0| 2f ff 50 42 4f 52 57 45 | 49 4e 2f 22 0a 33 31 30 |/.PBORWE|IN/".310|
|000005d0| 20 50 52 49 4e 54 22 11 | d3 49 4e 43 45 20 54 48 | PRINT".|.INCE TH|
|000005e0| 45 20 46 4f 52 4d 55 4c | 41 20 43 41 4c 43 55 4c |E FORMUL|A CALCUL|
|000005f0| 41 54 45 53 20 54 48 45 | 22 0a 33 31 35 20 50 52 |ATES THE|".315 PR|
|00000600| 49 4e 54 22 43 4f 45 46 | 46 49 43 49 45 4e 54 53 |INT"COEF|FICIENTS|
|00000610| 20 4f 46 20 31 36 5e 2d | cb 20 49 4e 20 54 48 45 | OF 16^-|. IN THE|
|00000620| 20 49 4e 46 49 4e 49 54 | 45 22 0a 33 32 30 20 50 | INFINIT|E".320 P|
|00000630| 52 49 4e 54 22 53 45 52 | 49 45 53 2c 20 54 52 55 |RINT"SER|IES, TRU|
|00000640| 4e 43 41 54 49 4e 47 20 | 41 4e 44 20 52 4f 55 4e |NCATING |AND ROUN|
|00000650| 44 49 4e 47 2d 4f 46 46 | 20 41 52 45 22 0a 33 32 |DING-OFF| ARE".32|
|00000660| 35 20 50 52 49 4e 54 22 | 47 52 45 41 54 4c 59 20 |5 PRINT"|GREATLY |
|00000670| 53 49 4d 50 4c 49 46 49 | 45 44 20 49 46 20 54 48 |SIMPLIFI|ED IF TH|
|00000680| 45 20 48 45 58 41 44 45 | 43 49 4d 41 4c 22 0a 33 |E HEXADE|CIMAL".3|
|00000690| 32 37 20 50 52 49 4e 54 | 22 46 4f 52 4d 20 49 53 |27 PRINT|"FORM IS|
|000006a0| 20 55 53 45 44 20 46 4f | 52 20 54 48 45 20 43 41 | USED FO|R THE CA|
|000006b0| 4c 43 55 4c 41 54 49 4f | 4e 2e 22 0a 33 33 30 20 |LCULATIO|N.".330 |
|000006c0| 50 52 49 4e 54 22 11 20 | 20 20 20 d4 48 49 53 20 |PRINT". | .HIS |
|000006d0| 50 52 4f 47 52 41 4d 2c | 20 46 4f 52 20 54 48 45 |PROGRAM,| FOR THE|
|000006e0| 20 c3 4f 4d 4d 4f 44 4f | 52 45 2d 36 34 2c 00 0a | .OMMODO|RE-64,..|
|000006f0| 33 33 35 20 50 52 49 4e | 54 22 43 41 4c 43 55 4c |335 PRIN|T"CALCUL|
|00000700| 41 54 45 53 20 50 49 20 | 49 4e 20 48 45 58 41 44 |ATES PI |IN HEXAD|
|00000710| 45 43 49 4d 41 4c 2c 20 | 46 4f 52 20 41 4e 20 ce |ECIMAL, |FOR AN .|
|00000720| 22 0a 33 34 30 20 50 52 | 49 4e 54 22 28 31 20 3c |".340 PR|INT"(1 <|
|00000730| 20 ce 20 3c 20 32 35 33 | 29 20 54 48 41 54 20 49 | . < 253|) THAT I|
|00000740| 53 20 45 4e 54 45 52 45 | 44 20 42 59 20 54 48 45 |S ENTERE|D BY THE|
|00000750| 22 0a 33 34 32 20 47 4f | 53 55 42 39 39 37 0a 33 |".342 GO|SUB997.3|
|00000760| 34 35 20 50 52 49 4e 54 | 09 0a 33 35 30 20 50 52 |45 PRINT|..350 PR|
|00000770| 49 4e 54 22 52 4f 55 4e | 44 49 4e 47 2d 4f 46 46 |INT"ROUN|DING-OFF|
|00000780| 20 54 4f 20 ce 20 50 4c | 41 43 45 53 2e 20 20 d4 | TO . PL|ACES. .|
|00000790| 48 45 20 4d 41 58 49 4d | 55 4d 22 0a 33 35 35 20 |HE MAXIM|UM".355 |
|000007a0| 50 52 49 4e 54 22 45 52 | 52 4f 52 20 44 55 45 20 |PRINT"ER|ROR DUE |
|000007b0| 54 4f 20 54 52 55 4e 43 | 41 54 49 4f 4e 20 41 4e |TO TRUNC|ATION AN|
|000007c0| 44 20 54 48 45 20 46 49 | 4e 49 54 45 22 0a 33 36 |D THE FI|NITE".36|
|000007d0| 30 20 50 52 49 4e 54 22 | 4e 55 4d 42 45 52 20 4f |0 PRINT"|NUMBER O|
|000007e0| 46 20 54 45 52 4d 53 20 | 55 53 45 44 20 4d 41 59 |F TERMS |USED MAY|
|000007f0| 20 42 45 20 43 41 4c 43 | 55 4c 41 54 45 44 3b 22 | BE CALC|ULATED;"|
|00000800| 0a 33 36 35 20 50 52 49 | 4e 54 22 49 54 20 49 53 |.365 PRI|NT"IT IS|
|00000810| 20 28 34 ce 2d 33 29 20 | 2a 20 31 36 5e 2d 28 ce | (4.-3) |* 16^-(.|
|00000820| 2b 34 29 2e 20 20 c2 55 | 54 20 49 46 20 54 48 45 |+4). .U|T IF THE|
|00000830| 22 0a 33 37 30 20 50 52 | 49 4e 54 22 4c 41 53 54 |".370 PR|INT"LAST|
|00000840| 20 46 4f 55 52 20 48 45 | 58 41 44 49 47 49 54 53 | FOUR HE|XADIGITS|
|00000850| 20 41 52 45 20 4c 45 53 | 53 20 54 48 41 4e 20 24 | ARE LES|S THAN $|
|00000860| 38 30 30 30 22 3b 0a 33 | 37 35 20 50 52 49 4e 54 |8000";.3|75 PRINT|
|00000870| 22 41 4e 44 20 41 44 44 | 49 4e 47 20 54 48 45 20 |"AND ADD|ING THE |
|00000880| 45 52 52 4f 52 20 50 52 | 4f 44 55 43 45 53 20 41 |ERROR PR|ODUCES A|
|00000890| 20 4e 55 4d 42 45 52 22 | 0a 33 37 37 20 50 52 49 | NUMBER"|.377 PRI|
|000008a0| 4e 54 22 47 52 45 41 54 | 45 52 20 54 48 41 4e 20 |NT"GREAT|ER THAN |
|000008b0| 24 37 c6 c6 c6 2c 20 52 | 4f 55 4e 44 49 4e 47 20 |$7..., R|OUNDING |
|000008c0| 54 4f 20 ce 20 50 4c 41 | 43 45 53 22 3b 0a 33 38 |TO . PLA|CES";.38|
|000008d0| 30 20 50 52 49 4e 54 22 | 49 53 20 49 4d 50 4f 53 |0 PRINT"|IS IMPOS|
|000008e0| 53 49 42 4c 45 20 41 4e | 44 20 54 48 45 20 50 52 |SIBLE AN|D THE PR|
|000008f0| 4f 47 52 41 4d 20 57 49 | 4c 4c 22 0a 33 38 35 20 |OGRAM WI|LL".385 |
|00000900| 50 52 49 4e 54 22 52 45 | 43 41 4c 43 55 4c 41 54 |PRINT"RE|CALCULAT|
|00000910| 45 20 46 4f 52 20 ce 2b | 31 2e 20 20 c4 49 53 50 |E FOR .+|1. .ISP|
|00000920| 4c 41 59 20 49 53 20 49 | 4e 20 42 4f 54 48 22 3b |LAY IS I|N BOTH";|
|00000930| 0a 33 39 30 20 50 52 49 | 4e 54 22 48 45 58 20 41 |.390 PRI|NT"HEX A|
|00000940| 4e 44 20 44 45 43 49 4d | 41 4c 2e 20 20 c9 54 20 |ND DECIM|AL. .T |
|00000950| 54 41 4b 45 53 20 41 42 | 4f 55 54 20 34 35 22 0a |TAKES AB|OUT 45".|
|00000960| 33 39 32 20 50 52 49 4e | 54 22 53 45 43 4f 09 00 |392 PRIN|T"SECO..|
|00000970| 53 20 54 4f 20 43 41 4c | 43 55 4c 41 54 45 20 46 |S TO CAL|CULATE F|
|00000980| 4f 52 20 ce 20 3d 20 32 | 35 32 3b 20 53 54 49 4c |OR . = 2|52; STIL|
|00000990| 4c 22 0a 33 39 33 20 50 | 52 49 4e 54 22 46 41 53 |L".393 P|RINT"FAS|
|000009a0| 54 45 52 20 54 48 41 4e | 20 41 20 32 30 30 20 cd |TER THAN| A 200 .|
|000009b0| c8 5a 20 d0 45 4e 54 49 | 55 4d 20 49 46 20 59 4f |.Z .ENTI|UM IF YO|
|000009c0| 55 22 0a 33 39 35 20 50 | 52 49 4e 54 22 53 54 41 |U".395 P|RINT"STA|
|000009d0| 52 54 20 59 4f 55 52 20 | 54 49 4d 45 52 20 57 48 |RT YOUR |TIMER WH|
|000009e0| 45 4e 20 59 4f 55 20 50 | 4f 57 45 52 2d 55 50 20 |EN YOU P|OWER-UP |
|000009f0| 54 48 45 00 0a 33 39 36 | 20 50 52 49 4e 54 22 43 |THE..396| PRINT"C|
|00000a00| 4f 4d 50 55 54 45 52 2e | 22 0a 33 39 37 20 50 52 |OMPUTER.|".397 PR|
|00000a10| 49 4e 54 22 11 20 20 20 | 20 d4 48 49 53 20 50 52 |INT". | .HIS PR|
|00000a20| 4f 47 52 41 4d 20 49 53 | 20 43 4f 4e 54 52 49 42 |OGRAM IS| CONTRIB|
|00000a30| 55 54 45 44 20 54 4f 20 | 54 48 45 22 0a 33 39 38 |UTED TO |THE".398|
|00000a40| 20 50 52 49 4e 54 22 d0 | 55 42 4c 49 43 20 c4 4f | PRINT".|UBLIC .O|
|00000a50| 4d 41 49 4e 2e 11 11 20 | 20 20 20 20 20 20 20 20 |MAIN... | |
|00000a60| 20 20 20 20 ca 4f 48 4e | 20 c9 41 4e 4e 45 54 54 | .OHN| .ANNETT|
|00000a70| 41 22 0a 33 39 39 20 47 | 4f 53 55 42 39 39 37 3a |A".399 G|OSUB997:|
|00000a80| 52 45 54 55 52 4e 0a 39 | 39 36 20 50 52 49 4e 54 |RETURN.9|96 PRINT|
|00000a90| 22 13 11 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |".......|........|
|00000aa0| 11 11 11 11 11 11 11 11 | 11 11 20 20 20 20 20 20 |........|.. |
|00000ab0| 20 20 20 20 20 20 20 12 | 5b 50 52 45 53 53 20 52 | .|[PRESS R|
|00000ac0| 45 54 55 52 4e 5d 92 22 | 3b 3a 47 4f 54 4f 39 39 |ETURN]."|;:GOTO99|
|00000ad0| 38 0a 39 39 37 20 50 52 | 49 4e 54 22 13 11 11 11 |8.997 PR|INT"....|
|00000ae0| 11 11 11 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |........|........|
|00000af0| 11 11 11 11 11 20 20 20 | 20 20 20 20 20 20 20 20 |..... | |
|00000b00| 20 20 12 5b d0 d2 c5 d3 | d3 20 d2 c5 d4 d5 d2 ce | .[....|. ......|
|00000b10| 5d 92 22 3b 0a 39 39 38 | 20 47 45 54 41 24 3a 49 |].";.998| GETA$:I|
|00000b20| 46 41 24 3d 4d 24 54 48 | 45 4e 52 45 54 55 52 4e |FA$=M$TH|ENRETURN|
|00000b30| 0a 39 39 39 20 47 4f 54 | 4f 39 39 38 0a 32 30 32 |.999 GOT|O998.202|
|00000b40| 30 20 50 4f 4b 45 35 36 | 2c 39 39 3a 50 52 49 4e |0 POKE56|,99:PRIN|
|00000b50| 54 22 93 0e 11 cf 4e 45 | 20 4d 4f 4d 45 4e 54 20 |T"....NE| MOMENT |
|00000b60| 50 4c 45 41 53 45 2e 2e | 2e 22 0a 32 30 33 30 20 |PLEASE..|.".2030 |
|00000b70| 50 3d 50 45 45 4b 28 34 | 35 29 2b 32 35 36 2a 50 |P=PEEK(4|5)+256*P|
|00000b80| 45 45 4b 28 34 36 29 2d | 31 0a 32 30 34 30 20 49 |EEK(46)-|1.2040 I|
|00000b90| 46 50 45 45 4b 28 50 29 | 54 48 45 4e 50 3d 50 2d |FPEEK(P)|THENP=P-|
|00000ba0| 31 3a 47 4f 54 4f 32 30 | 34 30 0a 32 30 35 30 20 |1:GOTO20|40.2050 |
|00000bb0| 50 3d 50 2d 37 37 35 3a | 50 4f 4b 45 37 38 31 2c |P=P-775:|POKE781,|
|00000bc0| 34 3a 50 4f 4b 45 09 0a | 32 30 36 30 20 50 4f 4b |4:POKE..|2060 POK|
|00000bd0| 45 38 38 2c 2e 3a 50 4f | 4b 45 38 39 2c 31 39 35 |E88,.:PO|KE89,195|
|00000be0| 3a 50 4f 4b 45 39 30 2c | 50 41 4e 44 32 35 35 3a |:POKE90,|PAND255:|
|00000bf0| 50 4f 4b 45 39 31 2c 50 | 2f 32 35 36 2b 33 3a 53 |POKE91,P|/256+3:S|
|00000c00| 59 53 34 31 39 36 34 0a | 32 30 37 30 20 50 4f 4b |YS41964.|2070 POK|
|00000c10| 45 32 30 35 34 2c 34 38 | 3a 47 4f 54 4f 32 30 0a |E2054,48|:GOTO20.|
+--------+-------------------------+-------------------------+--------+--------+